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SERIES-III PL/M~86 X193 COMPILATION OF MODULE TRANSMITTASK 
OBJECT MODULE PLACED IN :F1:XMITSK.O8J 
COMPILER INVOKED BY: FLM86.E6 sFISXMITSK.P8E XREF 


4 TRANSMITSTASK: 
DO; ; 

: /* ptr/selector radefinition schtick 
2 1 declare pointer_overlay Literally ‘’structure( 


basa selector,/* selector part */ 
offset word /x offset part xf 
) CA ; . 


/* specific declarations xf 


DECLARE OCL LITERALLY “ODECLARE’; 
DCL TOKEN LITERALLY °SELECTOR’; 
DCL FOREVER LITERALLY ’WHILE 17; 
OCL XMITSPORT LITERALLY °97; 

DCL RCVSPORT LITERALLY °17, 

OCL ESCK LITERALLY 0’; | 

DCL INFINITE LITERALLY “°OQFEFFH"? 


Go CON OQ UIE Ui 
mae a 2 2) 2 
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x/ 


\ 


‘initial(0,0)3 


19 1 DCL (CMMXSRESPONSESHAILBOX, 
CONNECTIONSID ) TOKEN, 
11 1 dcl segmenttp pointer ;} 
12° 14 dcl segment$t pointer_overlay at C3seqment$p) 
13 1 ONCL CRESPONSESPTR, 
EXCEPTIONSPTR) POINTER, 

14 1 ~ OCL CEXCEPTION, FULLSDELVR) WORD, 
15 1 DCL RESPONSESWORD WORD, 
16 1 DCL MESSAGESTEXT BASED SEGMENTEp (16) BYTE, 
17 DCL INDEX BYTE;> ~ 
18 1 DCL MESSS3SUFF (146) BYTE, 
19 1 OCL THSINPUTSMB (12) 8YTE DATA (10-°ROTHNORMIN’,O); 
20 1 DCL THEQUTPUTSMB (13) BYTE DATA (11, ’°RQGTHNORMCUT’,0O); 
21 1 OCL (CO,CI,/ROOTSJO3) TOKEN, 
22 1 del th$segtotr pointer ; 
23 1 dcl thtsegstokn pointer_overlay at(CdthSsegSptr) initial(0,0), 
24 1 DCL THSSEGMENT BASED THSSEGSptr STRUCTURE (¢ 

FUNCTION WORD, 

COUNT WORD, 

XCEPT WORD, 

ACTUAL WORD, 

MESSAGE (16) BYTE); 
25 1 DCL THSWRITE LITERALLY oS 
26 1 DCL THSREAD LITERALLY °17, 
27 1 DCL THSRESPONSESMAILBOX TOKEN, 
28 1 DCL LF LITERALLY “’OAH’,; 
29 1 OCL CR LITERALLY ’ODH’; 
30 1 OCL SIGNON (13) BYTE DATA C’ MMX TESTER’,LF-CR), 
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* : ; 

* TITL:: MMX INTERFACE EXTERNAL DECLARATIONS: 
* 

* 

x DATE: 07-12-81 
* 

* REVISION: 1.0 

* 

* LANGUAGE: PLM/86 

* 

* 


CQFIND: PROCEDURE (Csystemsporisname, 
statusSpointer) 
SELECTOR , 
EXTERNAL, 
DECLARE system$portiname WORD, 
“DECLARE statustpointer PCINTER- 
END CQFINDO, 


CQLOSE: PROCEDURE. Cconnections$id, 
statussipointer) 
EXTERNAL, 
DECLARE connectionSid SELECTOR, 
DECLARE statusSpointer POINTER, 
END CQLOSE;z 


CQACTV: PROCEDURE CsystemS$port3name, 
statustpointer) 
SELECTOR 
EXTERNAL, 
DECLARE systemSportSname WORDs 
DECLARE statusSpointer POINTER, 
END CQACTV; — 


CRDACT: PROCEDURE CsystemSportiname, 
-statusftnointer) 
EXTERNAL, 
DECLARE systemSportSname WORD, 
DECLARE statusSpointer POINTER, 
END CQDACT; 


CQXFER: PROCEDURE CconnectionSid, 
messagegtoken, 
xferttlag, 
messageslength-, 
statussSpointer) 

EXTERNAL; 
DECLARE connectionSid SELECTOR, 
DECLARE messageStoken SZLECTOR, 
DECLARE xtertflag WORD; 
DECLARE messageSlength WORD; 
DECLARE statusSpointer POINTER, 
END CQXFER; 


FOR COMPILER WITH SELECTOR TYPE 
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/x rmx€6 primitive calls | x / 
54 1 RQSCREATESSEGMENT: PROCEDURE Csizervexcptiptr) 
SELECTOR EXTERNAL, 
55 zZ DECLARE size WORD, 
56 2 DECLARE excotSptr POINTER, 
57 2 END RQSCREATESSEGHMENT, 
58 1 RQSDELETESSEGMENT: PROCEDURE (Csegmentvexcptiptr) 
. EXTERNAL, 
59 2 DECLARE seament SELECTOR, 
60 2 DECLARE excptSptr POINTER; 
61 2 ENO RQSDELETESSEGMENT? . 
62 1 RQSCREATESMAIL8OX: PROCEDURE (mailboxSflags,excpt3ptr) 
SELECTOR EXTERNAL, 
63 2 DECLARE mailbox$Sflags. WORD, 
64 2 DECLARE excpntSptr POINTER, 
65 2 END RQSCREATESMAILBOX, 
66 1 RQSDELETESMAILSOX: PROCEDURE (mailbox-excpt$ptr) 
EXTERNAL, 
6¢. 2 DECLARE mailbox SELECTOR, 
68 2 DECLARE excptSptr POINTER, 
69 2 END R@SDELETESMAILBOX, 
70 1 RQSSENDSMESSAGZ: PROCEDURE (mailbox, object, response, excpt$ptr) 
EXTERNAL, ’ 
71 2 DECLARE (mailboxvobjectyresponse) SELECTOR; 
fe 2 DECLARE excpt3ptr POINTER, 
73 2 END RQSSENDSMESSAGE, 
74 1 ROSRECEIVEEMESSAGE: PROCEDURE (mailbox,timeSlimit,responseSptr,excpt$ptr) 
SELECTOR EXTERNAL; 
75 2 DECLARE mailbox SELECTOR; 
76 2 DECLARE timetlimit WORD, 
(7 2 DECLARE (Cresponses3bptreexcotiptr) POINTER; 
738 2 END RQ@SRECEIVESMESSAGE; 
79 1 RQSGETSSIZE: PROCEDURE (Csegmentsvexcpt$ptr) 
WORD EXTERNAL, 
a0 2 DECLARE segment SELECTOR, 
81 2 DECLARE excpttptr POINTER, 
82 2 END RQSGETSSIZE; 
83 ¥ RQOZENDSINITSTASK: PROCEDURE 
EXTERNAL, 
84 2 END RQSENDSINITSTASK,s 
85 1 RQSLOOKUPB$OBJECT: PROCEDURE Cjob, 
name, 
timeSlimit, 
excptSptr) 
SELECTOR . 
| EXTERNAL; 
86 2 DECLARE job SELECTOR, 
87 2 


DECLARE name POINTER, 
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' DECLARE timeSlimit wORD, 
DECLARE excptiptr POINTER, 
END RQSLOOKUPSO8JECT; 


RQSGETSTASKSTOKENS: PROCEDURE 
SELECTOR 


EXTERNAL; 
DECLARE selection B8YTE-z 


(selection, 
excotsptrd 


DECLARE excatsptr POINTER, 


‘END RQSGETSTASKSTOKENS, 


RQ@SCREATESREGION: PROCEDURE (Cf 
e 
_ SELECTOR 
EXTERNAL, 
DECLARE flag WORD, 
DECLARE excpt3ptr PCINTER, 
END RQSCREATESREGION, 


RQSRECEIVESCONTROL: PROCEDURE 


. EXTERNAL, 
DECLARE region SELECTOR, 
DECLARE excpt3ptr POINTER, 

END RQSRECEIVESCONTROL, 


lag- 
xeptSptr) 


(region, 
excpt$ptr) 


ROSSENDESCONTROL: PROCEDURE Cexcpt3ptr) 


EXTERNAL, 
DECLARE excpttptr POINTER, 
END RQSSENDSCONTROL, 


SEJECT 
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106 


107 


119 


—_ 


/ | | 
CALL ENDSINITSTASK TO RESTART ROOT JOB 
*/ 

CALL RQSENDSINITSTASK} 


[x | 
GET TOKENS FOR TERMINAL HANOLER MAILS30XES 


xf 
ROOTSJO3 = RQSGETSTASKSTOKENS (3,a0EXCEPTION), 


RQSLOOKUPSOSJECT CROOTSJOB, ATHSOUTPUTSM3, INFINITE, QEXCEPTION); 


CO = 
CI = RQSLOOKUPEOBJECT CROOTSJO3, ATHSINPUTSMB, INFINITE, AEXCEPTION); 
/x 
CREATE TH MESSAGE SEGMENT ANO RESPONSE MAILBOX 
*/ 


ENT (32, SEXCEPTION); 


thisegitokn.sbase = RQSCREATES \ 
MAILBOX €O, @EXCEPTION); 


SEG 

THERESPONSESMAILBOX = RQSCREATES 
/* 

SEND SIGNON MESSAGE 
x/ 
THSSEGMENT.FUNCTION = THSWRITE; 
THSSEGMENT.COUNT = 13, 
CALL MOV3B CASIGNON, S3thEsegment.message, 13);7 


CALL RQSSENDSMESSAGE (CO, thSsegStokn.sbase, THSRESPONSESMAILSOX, JEXCEPTION)s 


/x 
FINO THE PORT FOR THE DEVICE ON WHICH THE RCVR TASK RUNS 
xf 2 
CONNECTIONSIO = CQFIND € RCVSPORT, SDEXCEPTION)=s. 
/* 
ACTIVE THIS DEVICES PORT 
xf 
MMXSRESPONSESMATLBSOX = CQACTV CXMITSPORT, DEXCEPTION); 
/*x . 
CREATE MMX MESSAGE SEGMENT 
x/ : 
segment3t.base = ROSCREATESSEGMENT (32, SEXCEPTION); : 
/* . 
LOOP READING CONSOL AND SENDING MESSAGES TO THE RECEIVER TASK 
xf 
DO FOREVER; 
/* 
WAIT FOR CONSOL MESSAGE RESPONSE 
x] , 
thiseygStoknabase = RGSRECEIVESMESSAGE CTHSRESPONSESMAILBOX, INFINITE, 
SRESPONSESWOROD, DEXCEPTION), 
[* 
READ CONSCL FOR MESSAGE TO SEND 
x / 


. THESEGMENT.FUNCTION = THSREADO, 


THSSEGMENT.COUNT = 12, 
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123 2 CALL RQSSENDSMESSAGE (CI, th3seg3tokn.base, THSRESPONSESMAIL30X, @EXCEPTION) 2 
124 2 thsseg3toknebase = RQSRECEIVESMESSAGE (THSRESPCNSESMAILBOX, INFINITE? 

QRESPONSESWORD, QEXCEPTION); 
425. -2 CALL MOVS(@THSSEGMENT. MESSAGE, SMESSAGESTEXT, THSSEGMENTeACTUAL)? 
[x , : | 
‘SEND CONSOL MESSAGE TO RCV TASK AS MMX MESSAGE 
x / 
126 2 FULLSDELVS = O07 . 
127 .2 CALL CQXFER (CONNECTIONSID,segmentétsbase,FULLSDELVR,OFFFFHs, SEXCEPTION)? 
/x 
WAIT FOR RETURNING “MX MESSAGE 
/ wf 
128 2 segmentét.base = RQSRECEIVESMESSAGE CMMXSRESPONSESMAILB0X, INFINITE? 
JRESPONSESWORD, EXCEPTION)? 
/x 
ECHO RETURNING MMX MESSAGE TO CONSOL 
k / 
129 2 CALL MOVE CAMESSAGESTEXT, ATHSSEGMENT. MESSAGE, 16)3 
130 2 THESEGMENT. FUNCTION = THSWRITES 
131 2 THESEGMENT.COUNT = 163 
432 <3 CALL RQSSENDSMESSAGE (CO, th3segStokn.base, THSRESPONSESMAILBOX, EXCEPTION)? 
133. 2 thisegStoknsbase = RQSRECEIVESMESSAGE (THSRESPONSESMAILBOX, INFINITE, 
, QRESPONSESWORD, BEXCEPTION); 
/* 7 ’ 
SEND LF,CR. AND THEN READ NEXT LINE 
x/ 
13h 2 THSSEGMENT. FUNCTION = THSWRITEZ 
135 2 THSSEGMENT.COUNT = 23 — 
136 2 THSSEGMENT.SMESSAGECO)= CR? 
137-2 THSSEGMENT.MESSAGE(1)= LF? ' 
138 2 CALL RQSSENDSMESSAGE (CO- thiseg$tokn bases THSRESPONSESMAILBOX, EXCEPTION) SZ 
/ 
139 2 END; /* FOREVER LOOP */ 
140 1 END TRANSMITSTASK? 
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CROSS“REFERENCE LISTING 


NAME, ATTRIBUTES, AND REFERENCES 


CO s s a e 


CONNECTIONID 
CONNECTIONID 
CONNECTIONID 


COACTV « « 
CQOACT « 
CQFIND « 
CQLOSE . 
COXPER « 
CR? ja? aie 
DOE we 8 


EQK. «© » » 
EXCEPTION. 


EXCEPTIONPTR 


EXCPTPTR . 
EXCPTPTR . 
EXCPTPTR . 
EXCPTPIR 
EXCPTPTR . 
EXCPTPTR . 
EXCPTPTR . 
EXCPTPTR . 
=XCPTPTR . 
EXCPTPTR . 
EXCPTPTR . 
EXCPTPTR . 
ELAG: 4) “ae % 
FOREVER. . 
FULLDELVR. 
ENDEX Ss 2 Ua 
INFINITE . 
JO86- a: a: % 
RP ae a es 
MAILBOX. . 
MAILBOX. -« 
MAIL30X. « 


MESSAGELENGTH 
MESSAGETEXT. 
MESSAGETQOKEN 


MESS3UFF . 


MMXRESPONSEMA 


MOV3 .« « » 
NAME « « « 
OBJECT « . 


POINTER_OVE 


RCVPORT. « 


MAILBOXFLAGS . 


L 


Lis 
RLAY. 


s s s s >< «4 8 t ] e e s e s e s 


SELECTOR 109*x 123 

SELECTOR 108* 115 132 138 | 

SELECTOR IN PROC (CQXFER) PARAMETER 48 

SELECTOR IN PROC (CQLOSE) PARAMETER 36 

SELECTOR 116* 127 

PROCEDURE SELECTOR EXTERNAL(2) STACK=0000H 

PROCEDURE EXTERNAL(3) STAGK=O0000H 

PROCEDURE SELECTOR EXTERNAL(O) STACK=0000H 

PROCEDURE EXT=RNAL(1) STACK=O000H 

PROCEDURE EXTERNALCG4). STACK=O000H 127 

LITERALLY “’ODH’ 30 136 

LITERALLY ‘’DECLARE’ 3 4 5 
10 11 12 13 14 15 16 ae 13 
22 23 24 25 26 27 28 29 

LITERALLY ‘0°’ | | 

WORD 107 108 109 110 111 #115 116 
123 124 127 128 +4132 4133 «2138 

POINTER 8 

POINTER IN PROC CRQSENDCONTROL) PARAMETER 

POINTER IN PROC (RQCREATEMAILBOX) PARAMETER 

POINTER IN PROC CRQLOOKUPOSJECT) PARAMETER 

POINTER IN PROC C(RQRECEIVEMESSAGE) PARAMETER 

POINTER IN PROC. (RQDELETEMAIL30X) PARAMETER 

POINTER IN PROC CRQCREATESEGMENT) PARAMETER 

POINTER IN PROC (CRQCREATEREGION) PARAMETER 

POINTER IN PROC CRQRECEIVECONTROL) PARAMETER. 

POINTER IN PROC CRQDELETESEGMENT) PARAMETER 

POINTER IN PROC (RQGETTASKTOKENS) PARANETER 

POINTER IN PROC (RQGETSIZE) PARAMETER 

POINTER IN PROC CRQSENOMESSAGE) PARAMETER 

WORD IN PROC CRQCREATEREGION) PARAMETER 

LITERALLY “WHILE 17 119 

WORD 126* 127 

BYTE 

LITERALLY. “OFFFFH’ 108 109. 120 


SELECTOR IN PROC CRQLOOKUPOBJECT) PARAMETER 


LITERALLY 


SELECTOR IN 
SELECTOR IN 
SELECTOR IN 


WORD IN 


BYTE BASEDCSEGMENTP) ARRAY(14) 
SELECTOR IN 


“QAH’ 


BYTE ARRAY(16) 


SELECTOR 
BUILTIN 


30 137 


PROC CRQRECEIVEMESSAGE) PARAMETER 
PROC CRQSENDMESSAGE) PARAMETER 
PROC (RQDELETEMAILBOX) PARAMETER 
WORD IN PROC CRQCREATEMAILBOX) PARAMETER 


PROC (CCXFER) PARAMETER 51 
leo “hey 
PROC (CQXFER) PARAMETER 49 
117* 128 
114 125 129 


POINTER IN PROC (CROLOOKUPOBJECT) PARAMETER 
SELECTOR IN PROC CRQSENDMESSAGE) PARAMETER 


LITERALLY 


"structure ( 


“ffset word 


LITERALLY 


v4? 


/*x offset part 


x/ 
116 


124 


base selector,s,/*x 
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117 
116 
6 7 os 9 
19 20 a4 
117 118 120 
104. 
64 
89 
77 
68 
56 
97 
101 
6Q. 
93 
81 
72 
96 
128 133 
86° 
75 
71 
67 
63 
87 
cH . 
selector part */ 
»’ 12 23 
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O000H 
OOOOH 
O006H 
OO000H 
OOOEH 
0014H 
OOOOH 
OO00H 
O000H 
O000H 
O000H 
O000H 
OO000H 
—OG00H 
O000H 
O000H 
O000H 


QOO0H 
OO00H 
OOOOH 
O000H 
O004H 
O004H 
OOOOH 
9002H 
‘OOOOH 
0019H 
OOOH 
OOOOH 
COOGH 
OO00H 
OOCOH 
OCOO0H 
OO00H 
OOOOH: 
OCOOH 
OO000H 
COOCH 


0018H 
Q000K 
QO0CH 
0002H 
0004H 
0006H 
0008H 
0016H 
0016H 
OOOH | 
0002H 


O00CH 
OO00H 


O000H 
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CROSS TREFERESHCE LISTING 


REGION «2 6 « 
RESPONSE « « 
RESPONSEPTR. . 
RESPONSEPTR. 
RESPONSEWORD . 
-ROOTJOS. « « 
RQCREATEMAILBOX. 
RQCREATEREGION . 
RQCREATESEGMENT. 
RQDELETEMAIL30OX. 
RQDELETESEGMENT. 
RQENDINITTASK. . 
RQGETSIZE. «2 « « 
RQGETTASKTOKENS. 
RQLOCKUPO38JECT . 
RQRECEIVECONTROL 
RQRECETVEMESSAGE 


RQSENDCONTROL. 
RQSENOMESSAGE. 
SEGMENTe 
SEGMENT. .« 
SEGMENTP . 
SEGMENTT . 
BASE . 
OFFSET 
SELECTION. 
SIGNON . . 
24 ae ae a 
STATUSPOINTER. 
STATUSPOINTER. 
STATUSPOINTER. 
STATUSPOINTER. 
STATUSPCINTER. 
SYSTEMPORTNAME 
SYSTEMPORTNAME | 
SYSTEMPORTNAME 
THINPUTMS. « « 
THOUTPUTMB 4. 2 
THREAD « « «9 » 
THRESPONSEMAIL 
THSEGMENT. « « 
FUNCTION 
COUNT. 
KEEP Te. * 
ACTUAL 
hes c0AG2 
THSEGP TER 
THSEGTOKN. 
BASE . 
OFFSET 
THWRITE. « 
TIMELIMIT. . 
LEGGE IML = 
TOKEN. «© «© «© 2 
TRANSMITTASK .. 
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e ss #8 # @ @ 8» e 8 @ 8 Ya 


05/19/82 PAGE 


SELECTOR IN PROC C(RQRECEIVECONTROL) PARAMETER 100 
SELECTOR IN PROC C(RESENDMESSAGE) PARAMETER: 71 . 
POINTER 

POINTER IN PROC CRORECEIVEMESSAGE) PARAMETER 77 
WORD 120 124 128. -433.. . 

SELECTOR 107* 108 109 

PROCEDURE. SELECTOR EXTERNALC7) STACK=O000H 111 
PROCEDURE SELECTOR EXTERNAL(15) STACK=0000H 

PROCEDURE SELECTOR EXTERNAL(5) STACK=0O000H 110 118 
PROCEDURE EXTERNALC8) STACK=0000H 

PROCEDURE EXTERNAL(6) STACK=O000H 

PROCEDURE EXTERNAL(12) STACK=O000H 104 

PROCEDURE WORD EXTERNAL(11) STACK=Q000H 

PROCEDURE SELECTOR EXTERNAL(14) STACK=O000H 107 
PROCEDURE SELECTOR EXTERNAL(13) STACK=Q000H 108 109 
PROCEDURE EXTERNAL(16) STACK=0000H 

PROCEDURE SELECTOR EXTERNAL(10) STACK=OO0OOH . 120 124 128 
133 

PROCEDURE EXTERNAL(17) STACK=0000H 

PROCEDURE EXTERNAL(9) STACK=0000H 115 123 132 138 
SELECTOR IN PROC (CROQDELETESEGMENT) PARAMETER 59 
SELECTOR IN PROC CRQGETSIZE) PARAMETER °80 
POINTER . t2 425 129 

STRUCTURE AT INITIAL 

SELECTOR 4118* 127 128* 

WORD 

8YTE IN PROC CRQGETTASKTOKENS) PARAMETER 92 

BYTE ARRAYC13) DATA 114 

WORD IN PROC CRQCREATESEGMENT) PARAMETER » DS 
POINTER IN PROC (CQXFER) PARAMETER 52 

POINTER IN PROC (CQDACT) PARAMETER 45 

POINTER IN PROC (CQACTV) PARAMETER 41 

POINTER IN PROC CCQLOSE) PARAMETER 37 

POINTER IN PROC (CQFINO) PARAMETER 33 

WORD IN PROC CCQDACT) PARAMETER 44 

WORD IN PROC (CQACTV) PARAMETER 40 

WORD IN PROC (CQFIND) PARAMETER 32 

BYTE ARRAY(12) DATA 109 

BYTE ARRAY(13) DATA 108 

LITERALLY: “17 121 

SELECTOR 111% 115 120 123 124 #+1132 1433 £4138 
STRUCTURE BASEDCTHSESGPTR) 

WORD 112% 121% $%130% 134* 

WORD 113% 122% 131% %4135% 

WORD 

WORD 1250 “o 

BYTE ARRAY(16) 114 125 129 136* 137% 

POINTER —  -230~¢«6494— 1250—~«129 

STRUCTURE AT INITIAL 

SELECTOR 110* 115 120* 123 124* +132 133% +138 

WORD | | 

LITERALLY °5’ 112 130 134 

WORD IN PROC CRQLOCKUPOBJECT) PARAMETER 88 

WORD IN PROC CRCRECEIVEMESSAGE) PARAMETER 76 
LITERALLY “SELECTOR’ 10 21 27 

PROCEDURE STACK=Q000CH 7 


PL/JM-&4 COMPILER TRANSMITTASK 05/19/82 
CROSS7mREFERENCE LISTING 


§ Q000H 2 XFERFLAGS « « «© « 2 WORD IN PROC (CQXFER) PARAMETER 50 
6 XMITPORT 2 «© «2 « LITERALLY 0" 117 


MODULE INFORMATION: 


CODE AREA. SIZE = O1DCH 476D 
CONSTANT AREA SIZE = O026H 38D 
VARIABLE AREA SIZE = O028H 439 
MAXIMUM STACK SIZE = OCOCH 120 


295 LINES READ 
O PROGRAM WARNINGS 
O PROGRAM ERRORS 


END GF PL/M~86 COMPILATION . 


